  1-42,21,12  LBL B             start BRAINFUCK interpreter
  2-42, 7, 0  FIX 0             make output look different
  3-       0  0
  4-44,16,11  STO MATRIX A      clr tape
  5-42,16, 1  MATRIX 1          set tape ptr
  6-       1  1
  7-      13  10^x              =10, needs no ENTER before next number
  8-       3  3                 1st code register
  9-43, 6, 0  F? 0              compacted code?
 10-      20  *                 yes: 10 cmd/register
 11-   44  2  STO 2             code pointer
 12-42,21,.1  LBL .1    #####   main loop starts here
 13-   32 .0  GSB .0            get instruction
 14-   44 25  STO I
 15-   32 25  GSB I             interpret it
 16-42, 6, 2  ISG 2             code ptr +=1
 17-   43  8  RAD               nothing but a NOP
 18-   22 .1  GTO .1            repeat
 19-42,21, 0  LBL 0     =====   "FIN"
 20-42, 7, 5  FIX 5             indicate PRGM END
 21-      31  STOP              
 22-42,21, 1  LBL 1     =====   ">"
 23-42, 6, 1  ISG 1             tape ptr +=1
 24-   43 32  RTN               NOP
 25-   43 32  RTN
 26-42,21, 2  LBL 2     =====   "<"
 27-42, 5, 1  DSE 1             tape ptr -=1
 28-   43 32  RTN               or NOP
 29-   43 32  RTN
 30-42,21, 3  LBL 3     =====   "+"
 31-42, 6,11  ISG A             cell @tape ptr +=1
 32-   43 32  RTN               NOP
 33-   43 32  RTN
 34-42,21, 4  LBL 4     =====   "-"
 35-42, 5,11  DSE A             cell @tape ptr -=1
 36-   43 32  RTN               or NOP
 37-   43 32  RTN
 38-42,21, 5  LBL 5     =====   "."
 39-   45 11  RCL A             RCL cell @tape ptr
 40-      31  STOP              HOLD, see note 1
 41-   43 32  RTN
 42-42,21, 6  LBL 6     =====   ","
 43-       0  0                 default
 44-43, 4, 9  SF 9              make display blinking
 45-      31  STOP              prompt for input
 46-43, 5, 9  CF 9              end blinking
 47-   44 11  STO A             save in cell @tape ptr
 48-   43 32  RTN
 49-42,21, 7  LBL 7     =====   "["
 50-   45 11  RCL A             RCL cell @tape ptr
 51-43,30, 0  x#0?              step in?
 52-   43 32  RTN               yes: CONTINUE
 53-43, 5, 1  CF 1              search fwd
 54-   44  0  STO 0             nesting level
 55-   22  9  GTO 9             find corresponding ]
 56-42,21, 8  LBL 8     =====   "]"
 57-   45 11  RCL A             RCL cell @tape ptr
 58-   43 20  x=0?              done?
 59-   43 32  RTN               yes: CONTINUE
 60-43, 4, 1  SF 1              search backwards
 61-       2  2
 62-   44  0  STO 0             nesting level
 63-42,21, 9  LBL 9     .....   seek matching [ or ]
 64-       1  1
 65-43, 6, 1  F? 1              backwards?
 66-      16  CHS
 67-44,40, 2  STO+ 2            move code ptr
 68-   32 .0  GSB .0            get instruction
 69-       7  7                 code of [
 70-43,30, 7  x>y?              neither [ nor ]?
 71-   22  9  GTO 9             inspect next
 72-      30  -
 73-   43 20  x=0?              it's a [?
 74-42, 5, 0  DSE 0             yes: nesting level -=1
 75-44,40, 0  STO+ 0            no: nesting level +=1
 76-   45  0  RCL 0             nesting level
 77-       1  1
 78-43,30, 6  x#y?              not done yet?
 79-   22  9  GTO 9             yes: go on
 80-   43 32  RTN
 81-42,21,.0  LBL .0    .....   get instruction
 82-   45  2  RCL 2             code ptr
 83-43, 6, 0  F? 0              compacted code?
 84-   22  0  GTO 0             yep: special
 85-   44 25  STO I             STO ptr
 86-   45 24  RCL (i)           get code
 87-   43 32  RTN
 88-42,21, 0  LBL 0             extract code
 89-       1  1
 90-       0  0
 91-      10  /                 in which REG?
 92-   44 25  STO I
 93-   42 44  FRAC
 94-       1  1
 95-      30  -
 96-   32  0  GSB 0             which digit?
 97-      13  10^x
 98-45,20,24  RCL* (i)          move in place
 99-   42 44  FRAC              extract it
100-42,21, 0  LBL 0
101-       1  1
102-       0  0
103-      20  *
104-   43 44  INT
                                implicit RTN